#!/usr/bin/perl # stop.pl # Shut down a connection by killing it's PID $no_acl_check++; require './ppp-client-lib.pl'; ($ip, $pid, $sect) = &get_connect_details(); $disconnected = &ppp_disconnect($ip ? 0 : 1, 1); exit($disconnected ? 0 : 1);